
$server_costs = 5500;
$file = $ARGV[0];
open(R,"<$file");
while (<R>){
	my $kostenserver = $_;
	chomp($kostenserver);
	$kostenserver1	= aufrunden($kostenserver/100000);
	$kostenserver2	= aufrunden($kostenserver1*$server_costs);
	print "Kosten ohne RZ für Server: $kostenserver - Kosten Mietserver nach RZ: $kostenserver2\n";
}

sub aufrunden {
my ($zahl) = @_;
return $zahl if $zahl == int ($zahl);
return int ($zahl + 1);
}